*------------------------------------------------------------------------------*
* Family history - Dinas, Fouka, Schläpfer - JoP
*------------------------------------------------------------------------------*

*------------------------------------------------------------------------------*
* Figure 3
*------------------------------------------------------------------------------*



*------------------------------------------------------------------------------*
* Greece
*------------------------------------------------------------------------------*

use greece, clear

gen inter=asiaminor*T
local controls female i.age i.edu i.income i.occupation i.nomos 

estimates clear
eststo neigh: reg mean_neighbors_st T asiaminor inter  `controls', cl(municipality)

coefplot (neigh, offset(-0.01) aseq("Mean neighbors") ciopts(lcolor(blue blue)) mcolor(blue)), ///
levels(95 90) xline(0, lcolor(gs10)) keep(inter) ///
ysca(titlegap(2)) msize(small) title("Greece", size(small)) ///
xtitle("", size(small)) xtitle("Differential treatment effect", size(small)) ///
xlabel(, nogrid labsize(small)) ylabel(, nogrid labsize(small)) xsca(titlegap(2)) ///
legend(region(lcolor(white))) swapnames legend(off) grid(none) 


graph save Greece, replace

*------------------------------------------------------------------------------*
* Germany
*------------------------------------------------------------------------------*

use germany, clear

local controls i.sex i.state i.age i.F4 i.F13
estimates clear
eststo neigh: reg mean_neighbors_st t1 expellee inter_exp_t1 `controls', cl(GKZ)

coefplot (neigh, offset(-0.01) aseq("Mean neighbors") ciopts(lcolor(blue blue)) mcolor(blue)), ///
levels(95 90) xline(0, lcolor(gs10)) keep(inter_exp_t1) ///
ysca(titlegap(2)) msize(small) title("Germany", size(small)) ///
ytitle("", size(small)) xtitle("Differential treatment effect", size(small)) ///
xlabel(, nogrid labsize(small)) ylabel(, nogrid labsize(small)) xsca(titlegap(2)) ///
legend(region(lcolor(white))) swapnames legend(off) grid(none) 


graph save Germany, replace

*------------------------------------------------------------------------------*
* Combine
*------------------------------------------------------------------------------*

graph combine Greece.gph Germany.gph, xcommon iscale(2) ysize(2) 
